-- card: 3210 from stack: in
-- bmap block id: 4000
-- flags: 0000
-- background id: 3528
-- name: haiku


-- part 1 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=78 top=130 right=240 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 18
-- part name: verse
----- HyperTalk script -----
on mouseup
  haiku
end mouseup


-- part 8 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=178 top=43 right=70 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 768
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseup
  lock screen
  if visible of cd fld brag then
    hide cd fld brag
    hide cd fld brag2
    unlock screen with iris close slow
  else
    show cd fld brag2
    show cd fld brag
    unlock screen with iris open slow
  end if
end mouseup


-- part 9 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=73 top=42 right=203 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 22
-- part name: brag
----- HyperTalk script -----
on mouseup
  send mouseUp to cd fld id 8
end mouseup


-- part 10 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=73 top=112 right=277 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: brag2
----- HyperTalk script -----
on mouseup
  send mouseUp to cd fld id 8
end mouseup


-- part 6 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=14 top=304 right=327 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Library
----- HyperTalk script -----
on mouseUp
  visual zoom in
  go library
  if the result is empty then
  else
    go home
  end if
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=95 top=304 right=327 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Words
----- HyperTalk script -----
on mouseUp
  goEdit
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=207 top=292 right=331 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Haiku
----- HyperTalk script -----
on mouseUp
  haiku
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=323 top=304 right=327 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save Haiku
----- HyperTalk script -----
on mouseUp
  put cd fld verse &return &return after cd fld saved of cd saved
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=419 top=304 right=327 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See Saved
----- HyperTalk script -----
on mouseUp
  seeSaved
end mouseUp


-- part contents for card part 8
----- text -----
Haiku Master

-- part contents for card part 9
----- text -----
andrew stone
bmug/glassell Park/ASTONE:GEnie
505-345-4800

-- part contents for card part 10
----- text -----
"Haiku" creates a new haiku.

Edit words takes you to card where words are stored.

Save Haiku puts haiku after others on the saved card: go there with "See Saved" button.

—modified &distributed with "If Monks had Macs..."  with Andrew's permission.  

© Andrew Stone 1988 & modifications  © Brian Thomas 1989.  No commerical or Educorp distribution or any distribution fees can be charged other than from registered Macintosh Users Groups.  This is Haiku Master version 2.2

-- part contents for card part 1
----- text -----
 bogus sensuous vessel
 tastes dreadful fire
 strange situation.